args <- commandArgs(TRUE)
setwd(args[1])
data<-read.table("/data1/bsi/BORA_processing/devel/eqtl/parallelize_genotypingsurvival/Matrix_eQTL_R_Source/GE.txt",sep="\t",head=T)
s1<-seq(1:207)
s2<-sample(s1, size=length(s1), replace = FALSE, prob = NULL)
s3<-s2+1
s3<-c(1,s3)
data1<-data[,s3]
write.table(data1,"GE.txt",quote=FALSE,sep="\t",col.names=TRUE,row.names=FALSE)
write.table(s3,"order.txt",quote=FALSE,sep="\t",col.names=TRUE,row.names=FALSE)

